<%
'*********************************
' * * * N O T I C E * * *
'*********************************
' (c)2001, Grayworld Media, All rights reserved
'
' Grayworld Media is a wholly owned business of John Gray Kales.
'
' No claim to copyright is made for original U.S. Government Works.
'
' This work is wholly owned by Grayworld Media and may not be
' used, in whole or in part, by any person, group or entity to
' generate income or promote a business, service or product
' without the explicit permission of John Gray Kales.
'
' Alteration of this program in any way is strictly prohibited.
' This includes the alteration or removal of this copyright
' notice or alteration of source code.
'
' Violation of this notice will be pursued to the full extent of the law.
%>
<%
imagedirectory = aRootPath & "images\categories\"
if request("recno") = "" then
if request("partno") = "" then
itemSQL = "SELECT * FROM Items"
else
itemSQL = "SELECT * FROM Items WHERE PartNumber = '" & request("partno") & "'"
end if
else
itemSQL = "SELECT * FROM Items WHERE ID = " & request("recno")
end if
set items = Server.CreateObject("ADODB.Recordset")
'response.write("*** FLAG *** " & itemSQL)
items.Open itemSQL, ConnString
if items.BOF and items.EOF then
response.write("No Records Found")
else
recno = items("ID")
if items("Category") = "Automotive/AC Accessories/Hoses" then
response.redirect(wsRootPath & "/content/hoses.asp")
end if
Display
end if
items.close
set items = nothing
sub DispImage
' recno = request("recno")
Set fso = CreateObject("Scripting.FileSystemObject")
'response.write("*** FLAG *** -" & server.mappath(wsRootPath) & "\images\items\fullimages\" & recno & ".jpg")
if fso.FileExists(server.mappath(wsRootPath) & "/images\items\fullimages\" & recno & ".jpg") then
response.write("")
end if
set fso = nothing
end sub
%>
<% sub Display %>
Bright Solutions - Browse Catelog
<%if items.BOF and items.EOF then%>
No Item Found
[back]
<%else%>
![](" & wsRootPath & "images/items/fullimages/" & recno & ".jpg" & ")
")
end if
set fso = nothing
end sub
%>
<% sub Display %>